(compilation-menu-map): Use `kill-compilation' to stop compilation.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index a85551d20d44163a1a21563dc46f0ffaa691d08b..44f1178c11216ed290326be10e4e060681f32557 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1161,7 +1161,7 @@ exited abnormally with code %d\n"
 (defvar compilation-menu-map
   (let ((map (make-sparse-keymap "Errors")))
     (define-key map [stop-subjob]
-      '("Stop Compilation" . comint-interrupt-subjob))
+      '("Stop Compilation" . kill-compilation))
     (define-key map [compilation-mode-separator2]
       '("----" . nil))
     (define-key map [compilation-mode-first-error]